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publication may be reproduced in any form or by any 
means without prior written permission from Semaphore 
Corporation • Semaphore offers no warranty, either 
expressed or implied, for any losses due to the use 
of any material published in our Product Profiles • 
Subscriptions are free, but are available only to 
Pick operating system users in the USA • Back issues 
are available by sending a stamped, self-addressed 
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Save Disk Space By 
Reformatting Files 

Imagine an item with only two non-null 
attributes: a five character string in attribute 
one, and a six digit number in attribute nine. 
That sounds like a total of only eleven bytes 
worth of data, but in fact eight other 
delimiter bytes are created by the system to 
denote the seven null attributes between the 
two pieces of data in the first and ninth 
attributes. That means that disk space is 
used up even by null attributes (when they're 
positioned between non-null data). A large 
amount of disk space can be wasted in poorly 
designed files, where lots of null attributes 
frequently occur within items. By 
reformatting files so that the most frequently 
used attributes are at the start of an item, 
null attributes are avoided and disk space can 
be saved. 


The program listed below is called PROFILE 
and is useful for determining how a file 
should be reformatted. PROFILE simply scans 
every item in a file and builds and prints a 
table showing the occupied attributes. (The 
routine in lines 8 to 24 is a Shell sort for 
reordering the dynamic arrays that form the 
columns of output data. Programmers might 
want to duplicate this code in other programs 
that need a fast sort routine.) 


PROFILE 

01 CRT "DICT or DATA": ; INPUT DD 

02 CRT "File": ; INPUT FILE ; OPEN DD,FILE ELSE STOP 
03 ITEMS=0 ; SELECT 

04 EXIST="" ; AVG="" ; MAX="" ; MAX.ATR=0 
05 100 READNEXT ID ELSE 

06 AMC="" ; FOR 1=1 TO MAX.ATR ; AMC<I>=I ; NEXT I 
07 GOSUB 200 ;* Print by AMC 
08 GAP=INT(MAX.ATR/2) 

09 LOOP WHILE GAP > 0 DO 

10 FOR I=GAP+1 TO MAX.ATR 

11 0=1-GAP 

12 LOOP WHILE 0 > 0 DO 

13 JG=0+GAP 

14 IF EXIST<U> < EXIST<JG> THEN 

15 X=EXIST<J>; EXIST<J>=EXIST<JG>; EXIST<JG>=X 

16 X=AMC<J>; AMC <J >=AMC <JG >; AMC<JG>=X 

17 X=AVG<J>; AVG<J>=AVG<JG>; AVG<JG>=X 

18 X=MAX<J>; MAX <J >=MAX <JG >; MAX<JG>=X 

19 J=J-GAP 

20 END ELSE J=0 

21 REPEAT 

22 NEXT I 

























OVEREASY 

from Crescendo Associates, Inc. 


zxixoo rx-<in hij e-o-«zir/a-*coz>o<n-ra 

-Krto - cm-izzxu- x <n<nfri'* mmoi- - not/ixt- 03 
o--»z renmoo- x m-urroio rr- z- -to »- 

§ Z §<F 9*-- 3- 8RCc®?hSMP« 
inz^ N ? x *z3 — 4 o r ^ z 3 
3< H o C PS X Sr ° 


ck -jj-uKMnro-sj^ -jroo>.Mnro uiuiuumo-MO ro-j* ui-k»i m 
i» o>cn<^uirouKflrou>-M.nu»cno>u).*^o>ODO0O/o>o>uiLncocn—rococo -o 


No longer will the width of your spreadsheets, reports and prin¬ 
touts be limited by the width of your line printer! OVEREASY 
is a software program which takes a report and “flips” it 90 
degrees, so that it prints across the perforations. You can now 
create printouts which are infinitely wide! 
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• OVEREASY is similar to the Side¬ 
ways product on microcomputers. 

• OVEREASY works with most popu¬ 
lar dot matrix printers including 
Epson, C. Itoh, Okidata, Mannes¬ 
man Tally, and Printronix. 


• OVEREASY takes any report out 
of the spooler hold file. Anything 
that you can get into the spooler, 
you can print with OVEREASY. 

• OVEREASY works with all popular 
Pick-compatible spreadsheets includ¬ 
ing Realcalc, Spreadneat, Compu- 
sheet, Auroplan, Ulticalc, and Cal- 
cumentor. 

• OVEREASY is available for all 
Microdata, Pick-compatible, and 
Prime Information Systems. 


• OVEREASY costs just $395! 
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You can order OVEREASY by writing or calling us at 
Crescendo Associates, Inc. 
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Crescendo Associates, Inc. 
24350 Joy Rd., Suite 7 
Redford Township, Michigan 48239 

——(313) 537-1919 i^— 
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The Pick System is designed to courses embody Dick Pick’s 
be user friendly. Now, Pick is philosophy on data processing, 
offering three courses to make it a and each one is taught by an 
fast friendship. instructor who is current on the 

These courses cover latest developments 

a range of instruc- SgiC in the system. 

tion for everyone -This is your chance 

from the Pick novice SYSTEMS t0 pj^ our brains 
to the advanced programmer. about the Pick System. 

What really makes these For additional information 
courses unique is that they send in the form to Pick Systems 
come from the original source — 1691 Browning, Irvine, California 

Pick Systems itself. All the 92714 or call (714) 261-7425. 

Please send a registration application and course schedule to: 

Name_ 

Title_ 

Company_ 

Address___ 

City/State/Zip___ 

Phone_ 


PROFILE (CONTINUED) 

23 GAP=INT(GAP/2) 

24 REPEAT 

25 GOSUB 200 ;* Print by percentage 

26 STOP 

27 END 

28 ITEMS=ITEMS+1 

29 READ RECORD FROM ID ELSE STOP "READ ERROR" 

30 ATR=C0UNT(RECORD,CHAR(254))+l 

31 IF ATR > MAX.ATR THEN MAX.ATR=ATR 

32 FOR 1=1 TO ATR 

33 LENGTH=LEN(RECORD <1>) 

34 IF LENGTH > 0 THEN 

35 EXIST<I>=EXIST<I>+1 

36 AVG<I>=AVG<I> + LENGTH 

37 IF LENGTH > MAX<I> THEN MAX<I>=LENGTH 

38 END 

39 NEXT I 

40 GO TO 100 

41 * 

42 200 * Output table 

43 PRINT " AVG MAX" 

44 PRINT " AMC EXIST % LEN LEN" 

45 FOR 1=1 TO MAX.ATR 

46 PRINT AMC<1> "R#3": 

47 PRINT EXIST<I> "R#7": 

48 IF EXIST<I> > 0 THEN 

49 PRINT ICONV(EXIST<1>/ITEMS,"MD2") "R#4": 

50 PRINT ICONV(AVG<I>/EXIST<I>,"MDO") "R#5": 

51 PRINT MAX <1> "R#5" 

52 END ELSE PRINT 

53 NEXT I 

54 PRINT 

55 RETURN 

56 END 
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MIRODUONG 

THE MOST POWERFUL 
PICK SYSTEMS IN THEIR CLASS. 


PICK users are passionate 
about their favorite operat¬ 
ing system. 

But there’s been a 
problem. 

They’ve had to either 
stick with obsolete minicom¬ 
puters or settle for a weaker 
micro system. 

Now CIE Systems 
introduces the CIES 680/100 
APX and CIES 680/200 
APX multi-user systems. 

Which means your cus¬ 
tomers can transport their 
PICK applications down 
from a high-price mini to a 
high-performance 680 APX 
supporting up to 40 termi¬ 
nals simultaneously. Each 
doing different jobs. 


CIES 680 APX systems 
feature 68000 processors 
running at 10 MHz with no 
wait states for up to four 
times the speed and 
throughput of other 68000 
PICK implementations. 

And they’re fully sup¬ 
ported by CIES and our 
multi-national, $60-billion 
parent company, C. Itoh, with 
vast production capabilities 
and worldwide resources. 

For more information, 
just call or write our 
exclusive sales represen¬ 
tative, BONNECO, Hutton 
Centre, 201E. Sandpointe 
Avenue, Suite 490, Santa 
Ana, CA., 92707, at 
(714) 546-0244. 



PICK SYSTEMS DIVISION 

A C.ITOH ELECTRONICS COMPANY 


CIE Systems 


BONNECO\ Exclusive Sales Representative " 

™CIE 680 is a Trademark of CIE Systems, Inc.® PICK is a Registered Trademark of PICK Systems. © 1984 CIE Systems, Inc. 






















WE SPECIALIZE IN USED AND COMPATIBLE 

MICRODATA 

SYSTEMS - PERIPHERALS - MEMORY - PRINTERS 

50 MB REFLEX I DISC DRIVES 
128 MB REFLEX II DISC DRIVES 
INTELLIGENT 8-WAY BOARDS, CABLES 
STANDARD 8-WAY BOARDS, CABLES 
128K MOS MEMORY BOARDS 
16K CORE MEMORY BOARDS 
PRISM I AND II CRTS 
ADDS VIEWPOINT CRTS 
★ ★★★★★★★★★★★★ 

COMPLETE MOS AND CORE SYSTEMS 
★ ★★★★★★★★★★★★ 

PRINTRONIX PRINTERS 
300LPM / 600LPM 
in stock 

★ ★★★★★★★★★★★★ 

BOARD REPAIR AND EXCHANGE SERVICE AVAILABLE 

Call CHUCK HAAS For Competitive Prices 
Buy-Trade-Sell 513-528-5400 


EflSTcamp ii me. ® 


SAVE $150.00 


on PICKjm Operating System 
for your I.B.M. PC/XT 
or Compatible Personal Computer 

We have a limited supply of new release 1.2 PICK Systems which operate on 
all I.B.M. PC/XT’s and many compatible PC’s. If you own an I.B.M. 
PC/XT. I.B.M. with a lOmb I.B.M. Hard Disk or one of the PC/XT clones 
then you save $150.00 by buying release 1.2. If your computer has a 
non-I.B.M. Disk or multiple Hard Disk drives then purchase your PICK 
System with the 1.3 upgrade kit and save $75.00. The optional release 1.3 
upgrade kit will support one or two (similar or different) Hard Disk drives up 
to lOOmb or more! and most I.B.M. PC/XT compatibles. The 1.2 PICK 
System with the 1.3 upgrade kit is identical to release 1.3 except for the 
packaging. 

PICK PC/XT OS release 1.2 $345.00 (Save $150.00) 

PICK PC/XT OS w/1.3 upgrade kit $420.00 (Save $75.00) 

PICK PC/XT OS release 1.3 $495.00 


PICKWARE JET Word Processing 

with 35,000 word dictionary $249.00 

PICKWARE Communications Software $299.00 


♦PICK SYSTEM PACKAGE: 

PICK OS, 1.3 upgrade kit, 

Jet Word processor, and 

Communications Software $893.00 (Save $150.00) 

ALCYONA COMPUTER CONSULTANTS, Inc. 

2110 Alcyona Dr. Hollywood, CA 90068 
(213) 462-1549 

PICK is a registered trademark of Pick Systems, Inc. 


PROFILE outputs a table of file attributes 
twice, first in existing attribute order, then 
again but sorted by frequency of attribute 
use. For example, here's the output after 
processing the dictionary of the STAT-FILE: 
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27 
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27 
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14 i 

9 

27 

100 

1 
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1 
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1 j 
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27 
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1 
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17 

63 

7 

14 
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7 
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44 
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14 
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37 

14 
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1 
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1 

9 

27 

100 
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1 
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27 
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1 

2 i 
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1 

4 

1 
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We can see that attributes five and six are 
never used in the 27 dictionary items, that 
attributes four and eleven are used only once, 
and that correlatives (in attribute eight) occur 
in just over a third of the items. The second 
table shows that dictionary items (at least for 
the STAT-FILE) would have fewer null 
attributes and be less wasteful of space if 
the data currently stored in attributes nine 
and ten were instead positioned just after 
attribute two. 


When we used the REFORMAT verb on the 
STAT-FILE dictionary, we found PROFILE'S 
suggested attribute ordering results in a 
savings of 110 bytes, or just over four bytes 
per item. Of course, dictionary formats are 
fixed by the operating system, and can't be 
changed by a user. But the format of a 
user's own file items can be adjusted at any 
time, as long as any associated programs are 
also changed to take the new attribute layout 
into account. While squeezing a byte or two 
out of an item might sound like a lot of 
trouble for small files, it can be worth it for 
large files. For example, PROFILE let us 
discover one file of over 30,000 items on our 
system that uses attribute 26 in 100% of the 
items, but has no data in many of the 
preceding attributes. REFORMAT revealed a 
potential savings of about ten bytes per item 
if attributes were reordered. In other words, 
about 600 disk frames were being wasted on 
null attributes in that one file alone! A 
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NOW YOU CAN LEARN PICK 


without cracking a book! 

\ Now Available For ( 
\ Microdata and the / 
7 ^PickPCXT! / N ( 

PROF 

for the PICK Operating System 


THE COMPLETELY ELECTRONIC 
LEARNING SYSTEM FOR PICK 



said that a Data File In the PICK conputer systen works 
:agous way to a standard netal file cabinet. How so? 


Jf RECORDS, with 
irnatlon stored i 


RECORD has a unique RECORD 
When you want to retrieve 
it'ornatlon In a RECORD 
BASIC program for Instancf 
•rst- need a RECORD KEY. 


The RECORD KEY 
tells the systen 
which RECORD you 
want. 


-ng the.RECORD KEY, you 
;ysten which RECORD you 




^ PROF is a hands-on, interactive learning system that will get 
you up to speed on PICK, quickly and easily. It's clever, enter¬ 
taining, and all learning is done right on the terminal. 

PROF leads you through simulated, HANDS-ON WORK 
SESSIONS in which you actively participate. You try every 
important command, and carefully review the way the system 
responds to each. It all happens right on the terminal. There is 
no book to hold in your lap. 

PROF contains material that is suitable for both users and 
technical personnel. Give it to your application users. Use it to 
train new analysts and programmers. 


PROF tells you exactly what to type. It then "checks" off each 
character as you type the right key. If you touch the wrong key, 
you are reminded by a single "beep". Every keystroke is screen¬ 
ed electronically. You cannot make a mistake! 

PROF covers all important aspects of PICK. This includes: 

TCL Database concepts 

EDITOR PROC 

ACCESS DATA/BASIC 

PROF also includes an online "HELP" feature for every TCL 
Command, which can be made available to every system user. 


PROF allows you to learn at your own pace. You can follow 
the suggested order of instruction, or quickly jump from "page" 
to "page" . . . just like a book. 

PROF has an Electronic Master Index which works just like the 
index at the back of a book. You can peruse the alphabetical list 
of subjects, then jump right into any lesson you desire. 


PROF is customized. There is a different version for each 
manufacturer of PICK-based equipment, including: 


Ultimate 

ADDS 

CDI 

Datamedia 


General Automation 

Evolution 

Bantam 

Altos 


COMING SOON! PROF for Prime Information PROF for Cosmos Revelation 


Yes! Please send me more information about PROF. 

Name _ 

Company_ 

Address_ 

City _State _ Zip_ 

Phone (_)_ 


You can order PROF by writing or calling us at 


CRESCENDO Associates, Inc. 

P.O. BOX 440 

DEARBORN HEIGHTS, Ml 48127 
(313) 537-1919 


PICK is a trademark of PICK Systems, Inc. 


































YOUR APPLICATION 
SOFTWARE MAKES 
MORE SENSE ON A 
MENTOR® COMPUTER 


An ADDS Mentor and its enhanced PICK 
operating system will bring out the best 
in your software. You see, our operating 
system allows for better communication 
between you, your software and the Mentor 






computer. And since your software is vital to your 
business, if you can’t use it to its greatest potential, 
you and your business have a problem. Obviously 
that is not the solution to your business’s needs. 

Not to worry. Enter ADDS, a subsidiary of NCR. We 
bring you Mentor. Designed to fulfill the needs of 
your business. 

Mentor computer systems are expandable. So 
they”ll grow as your business grows. They’re 


5) Mentor is a registered trademark of Applied Digital Data Systems, Inc. 


inexpensive and cost-efficient. So they’ll 
improve your current capabilities without 
requiring an irresponsible expenditure. 

The language Mentor understands is the 
language you understand. English. We call it 
INFO/ACCESS. It’s simple enough to use, 
yet powerful enough to generate almost any 
kind of report from your database. 

Talk to us. There’s an expert Mentor Systems 
Marketer near you. That Marketer will provide 
you with a wide range of programs to fit your 
business. So you don’t have to work it the other 
way around. 

Call your nearest Mentor marketer today. And 


get the right solution. 


IT ALL ADDS UR 

□□□ 



Applied Digital Data Systems Inc. 

A Subsidiary of NCR Corporation 

100 Marcus Boulevard, Hauppauge, NY 11788 USA 

Tel. (516) 231 -5400 • Telex 510-227-9886 • Fax (516) 231 -7378 



















